home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / datalist / datalist.exe / %MAINDIR% / SAMPLES / Sample6 / FORM1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1998-03-09  |  6.3 KB  |  172 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4800
  5.    ClientLeft      =   1530
  6.    ClientTop       =   2175
  7.    ClientWidth     =   6000
  8.    Height          =   5250
  9.    Left            =   1470
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   4800
  13.    ScaleWidth      =   6000
  14.    Top             =   1785
  15.    Width           =   6120
  16.    Begin VB.Data Data1 
  17.       Caption         =   "Data1"
  18.       Connect         =   "Access"
  19.       DatabaseName    =   "..\toprock.mdb"
  20.       Exclusive       =   0   'False
  21.       Height          =   300
  22.       Left            =   240
  23.       Options         =   0
  24.       ReadOnly        =   0   'False
  25.       RecordsetType   =   1  'Dynaset
  26.       RecordSource    =   "Product Codes"
  27.       Top             =   4320
  28.       Width           =   5535
  29.    End
  30.    Begin DataList.GTList GTList1 
  31.       Bindings        =   "FORM1.frx":0000
  32.       Height          =   3975
  33.       Left            =   240
  34.       TabIndex        =   0
  35.       Top             =   240
  36.       Width           =   5535
  37.       _Version        =   65536
  38.       DefColCaptionBorderStyle=   3
  39.       DynamicCols     =   0
  40.       ScrollTipDataField=   "Author"
  41.       BeginProperty DefColCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          name            =   "MS Sans Serif"
  43.          charset         =   0
  44.          weight          =   400
  45.          size            =   8.25
  46.          underline       =   0   'False
  47.          italic          =   0   'False
  48.          strikethrough   =   0   'False
  49.       EndProperty
  50.       BeginProperty DefFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  51.          name            =   "MS Sans Serif"
  52.          charset         =   0
  53.          weight          =   400
  54.          size            =   8.25
  55.          underline       =   0   'False
  56.          italic          =   0   'False
  57.          strikethrough   =   0   'False
  58.       EndProperty
  59.       BeginProperty ScrollTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  60.          name            =   "MS Sans Serif"
  61.          charset         =   0
  62.          weight          =   400
  63.          size            =   8.25
  64.          underline       =   0   'False
  65.          italic          =   0   'False
  66.          strikethrough   =   0   'False
  67.       EndProperty
  68.       BeginProperty ExtendTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  69.          name            =   "MS Sans Serif"
  70.          charset         =   0
  71.          weight          =   400
  72.          size            =   8.25
  73.          underline       =   0   'False
  74.          italic          =   0   'False
  75.          strikethrough   =   0   'False
  76.       EndProperty
  77.       CDs.Count       =   3
  78.       CDs.CD(0).SubItemSource=   0
  79.       CDs.CD(0).WordWrap=   0
  80.       CDs.CD(0).CaptionWordWrap=   0
  81.       CDs.CD(0).FontDefined=   -1  'True
  82.       BeginProperty CDs.CD(0).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  83.          name            =   "MS Sans Serif"
  84.          charset         =   0
  85.          weight          =   400
  86.          size            =   8.25
  87.          underline       =   0   'False
  88.          italic          =   0   'False
  89.          strikethrough   =   0   'False
  90.       EndProperty
  91.       CDs.CD(0).CaptionFontDefined=   -1  'True
  92.       BeginProperty CDs.CD(0).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  93.          name            =   "MS Sans Serif"
  94.          charset         =   0
  95.          weight          =   400
  96.          size            =   8.25
  97.          underline       =   0   'False
  98.          italic          =   0   'False
  99.          strikethrough   =   0   'False
  100.       EndProperty
  101.       CDs.CD(0).Width =   2646
  102.       CDs.CD(0).Caption=   "Code"
  103.       CDs.CD(0).Key   =   ""
  104.       CDs.CD(0).DataField=   "Code"
  105.       CDs.CD(1).SubItemSource=   1
  106.       CDs.CD(1).SubColumn=   1
  107.       CDs.CD(1).WordWrap=   0
  108.       CDs.CD(1).CaptionWordWrap=   0
  109.       CDs.CD(1).FontDefined=   -1  'True
  110.       BeginProperty CDs.CD(1).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          name            =   "MS Sans Serif"
  112.          charset         =   0
  113.          weight          =   400
  114.          size            =   8.25
  115.          underline       =   0   'False
  116.          italic          =   0   'False
  117.          strikethrough   =   0   'False
  118.       EndProperty
  119.       CDs.CD(1).CaptionFontDefined=   -1  'True
  120.       BeginProperty CDs.CD(1).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.          name            =   "MS Sans Serif"
  122.          charset         =   0
  123.          weight          =   400
  124.          size            =   8.25
  125.          underline       =   0   'False
  126.          italic          =   0   'False
  127.          strikethrough   =   0   'False
  128.       EndProperty
  129.       CDs.CD(1).Width =   2646
  130.       CDs.CD(1).Caption=   "Description"
  131.       CDs.CD(1).Key   =   ""
  132.       CDs.CD(1).DataField=   "Description"
  133.       CDs.CD(2).SubItemSource=   2
  134.       CDs.CD(2).SubColumn=   2
  135.       CDs.CD(2).WordWrap=   0
  136.       CDs.CD(2).CaptionWordWrap=   0
  137.       CDs.CD(2).FontDefined=   -1  'True
  138.       BeginProperty CDs.CD(2).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  139.          name            =   "MS Sans Serif"
  140.          charset         =   0
  141.          weight          =   400
  142.          size            =   8.25
  143.          underline       =   0   'False
  144.          italic          =   0   'False
  145.          strikethrough   =   0   'False
  146.       EndProperty
  147.       CDs.CD(2).CaptionFontDefined=   -1  'True
  148.       BeginProperty CDs.CD(2).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  149.          name            =   "MS Sans Serif"
  150.          charset         =   0
  151.          weight          =   400
  152.          size            =   8.25
  153.          underline       =   0   'False
  154.          italic          =   0   'False
  155.          strikethrough   =   0   'False
  156.       EndProperty
  157.       CDs.CD(2).Width =   2646
  158.       CDs.CD(2).Caption=   "(Unbound Column)"
  159.       CDs.CD(2).Key   =   ""
  160.       CDs.CD(2).DataField=   "(Unbound Column)"
  161.       LImgs.Count     =   1
  162.       _ExtentX        =   9763
  163.       _ExtentY        =   7011
  164.       _StockProps     =   81
  165.    End
  166. Attribute VB_Name = "Form1"
  167. Attribute VB_Creatable = False
  168. Attribute VB_Exposed = False
  169. Private Sub GTList1_ListItemDataRequest(ListItem As Object, ByVal Index As Long)
  170.     ListItem.SubItems(2).Text = ListItem.SubItems(0).Text + " " + ListItem.SubItems(1).Text
  171. End Sub
  172.